EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 
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**F ILE®*1D**STRLENEXT 


en ee ee ee eo 
ee ee ee oe 


me 
— 
be he 
— 
>< >< OO >< >< >< 
>< >< DC OK >< >< OC OK 

<>< << 

>< >< <>< 

<>< 
<>< 

<>< <> 

<>< <>< 
>< >< >< >< >< DE OK 
>< >< Dc OC >< >< x OK 
wu uw 
wu wus 
wu uw wu 
wu uwiuw wu 
wu wu wu 
wus ww wu 
wus wu ww 


usu usu Ly Lt 
Us ds a a as as a 
Sar SUS es. osv elo wseeireseesreueesoenen) 


= 
2 
Z2z 
zz 
22 
zz 
22222 222222222 
222222222 22222 
wu Us 
usu Wi 
wus wu Wud 
wu ud wus 
[very] usu Sara] 
wu wu Abs Ld 
eeTvs) Us usu 
usu ut wud 


duo 


RR LLLLLLLLL 
RR LLLLLLLLL 


T RRRRRRRR 
T RRRRRRRR 
RR 
RR 
RR 
RR 


—— 


od 

he 

od 

od 

nn MMM 

nw MMWNwn 

ww mn ww 

nn nn nn 

mw nn nw 

wn nw nw 

nw nw nw 

nw mn nn 
YMnn wn 
MMM mn 


nn MMMM 
nn NNWMM 
nn nw nw 
nn “nn nn 
mn nw own 
nn nn nn 
nn mn nw 
mn nn on 
MWMnnwW nw 
MMMM mn 
~“— “— 
oe ot 


LLLLLLLLLL 
LLLLLLLLLL 


LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
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1 
g 
4 
5 
; 
8 
9 
0 
1 
§ 
4 
5 
6 
7? 
8 
9 
0 
1 
g 
4 
5 
6 
7 
8 
9 
0 
1 
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DIPGIDIAVIVIUT ES 
NOUSWN OOO 


SOoOooooooo 


939 3 3 SS SS SI BIO OOOO 


pefeleleloleolololelolelo) 
NAVE CO OONAUE WN 0 OONOUS WN 


MMIMIPIPOPIN 


Sooooooo DOOOCOOOCOOOOOOOOOoOOooOo 
Sssssssssss sss 


WAWAPOPOPO 


Sooooooo 
SSsssssss 


SEW 


ooo 
oo 


F 


Seer 


NOUS WN 29 DOONAN WN 9 OD NAMES WIN OOO 


a a a a a a kk a a hh th dt tt os I IOOOOOD 


wal ah sb dh bad 
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MODULE STRSLEN_EXTR ( ! Extract a substr by length 


IDENT = '1-012' ! File: STRLENEXT.B32 Edit: RKR1012 
) = 


BEGIN 


. 
SRR REAR E AAA AREER AAR ARATE AER ERRATA AAA ERAAE REE 


‘fe 
ie 
ie 
it 
ie 
ie 
iz 
it 
ie 
ie 
it 
ie 
ie 
ie 
iw 
‘2 
it 
ie 
ie 
it 


Lee RRR R ARATE AAA AAR REEEE 
' 


'44¢ 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
SO TSFERREOT NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
OORPORAT iON NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 


FACILITY: String support Library 
ABSTRACT: 


This module extracts a substring according to the BASIC-PLUS-2 
syntax. It finds the substring of a main opr ing starting at the 
character position specified by the second input parameter and 
continues for the number of characters specified by the third 
arouse parameter. This substring is copied to the destination 
string. 


ENVIRONMENT: User mode, AST level or not or mixed 


AUTHOR: R. Will, CREATION DATE: 21-Feb-79 
MODIFIED BY: 


. 
' 
. 
' 
. 
' 
. 
‘ 
. 
' 
. 
' 
. 
' 
. 
1 
. 
' 
. 
' 
, 
t 
. 
' 
. 
' 
. 
' 
. 
‘ 
. 
‘ 
. 
' 
. 
' 
: 
i] 
. 
‘ 
. 
‘ 
. 
i] 
. 
‘ 
. 


R, Will qieroprr es VERSION 01 
1 - or ginal 


1 

Change Linkage and call to COPY routine. 15-Mar-79 Rw 
Change string Linkages to start with SIRS JBS 04-JUN-1979 
Change call to STRSSCOPY. JBS 16-JUL-1979 

gtr ine cleanue. change name fo STRS. RW 11-Nov-79 

Make the module name agree w § the eatery point name, and 
correct the PSECT name. JBS 02-NOV-1979 


Mw 
5 


@eeneneeneneneeeneenenenannnne 
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TRSLEN_EXTR 1b-5e -1984 01:41:37 AX-11 Bliss-32 V4.0-74 Page 2 
Bh F 1 30071388 Pet et PMBRTLeSREISTALENEXT.B 2;1 . (1) 
3 8 O38 1! 1-9 7 - Use new interlock macros. JBS 06-NOV-1979 
3 1! 1- } = Interlock only from CALL entry. RW 15-Nov-79 
; @& 060 1! iz - String speedup, remove edit 8. RW 8-Jan-1980 
ie 0061 1 ! 1-010 = E. hance to recognize additional classes of descriptors by 
3 6 p08¢ 1! ys ing SSTRSGET_LEN_ADDR to extract length end address of 
.- € 0063 1! Ist data byte froma descriptor. Remove string interlock 
; 664 se 1! code. RKR 21-APR-81 
s 65 5 1! 1-011 = Speed up code. RKR 7-0CT-1981. 
; @& 4 1 ! 1-012 = Use STRSCOPY_R_R8 for copy operation, Use S$STRSSISGNAL_FATAL 
; «67 0067 1! instead of SSTRSCHECK_STATUS. RKR 18-NOV-1981. 
; 68 0068 1 !-- 
; 9 8 9 1 
H 0 Q 1 !<BLF/PAGE> 


T 


ny 


ox 
pare 
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pe ee 1eSeort98e OU:40:32  WMMaL OnE Mets7e.. eh 
' 


| SWITCHES: 


SWITCHES ADDRESSING MODE 
(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


| LINKAGES: 


QDOOOCCOCOCOoO 


oO 
SIN NINO OA OOOO NIN INNS 


AIAN CONAULS WO OO) 0 OONOUS WH 


REQUIRE "RTLIN:STRLNK'; ! Use require file with string Linkage 
i] 


| TABLE OF CONTENTS: 


FORWARD ROUTINE 
STRSLEN_EXTR, ! Extract a substring by len,CALL 
STRSLEN_EXTR_R8& : STRSJSB_LEN_EXT; ! Extract a substr by len, JSB 


CO 
uw 
OOOQOCCOCCOCOCSOOOOCOOOOOOOOCOOOOOo 


3 1 

; 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

; 1 

3 1 

$ 1 

: 1 

3 1 

3 1 

3 1 

3 1 

; WB 1 

- } 

fg 7% 1! 

: | «94 77 1°! INCLUDE FILES: 

Pg Ba 

; 4 8 : REQUIRE ‘RTLIN:RTLPSECT'; ' Declare PSECTS code 
; 190 $14 ! REQUIRE 'RTLIN:STRMACROS'; ! use string macros to code 
i 13) } + ! LIBRARY ‘RTLSTARLE'; ! STARLET Library for macros and symbol 
3 108 1295 1! 

3 104 1296 1 ! MACROS: 

: 105 1297 1! 

> 106 1298 1! NONE 

3 107 1 1! 

3; 108 1300 1 ! EQUATED SYMBOLS: 

: 109 1301 1! 

: 110 1302 1! NONE 

s 111 1303 1! 

: Ne 1304 1 ! PSECT DECLARATIONS 

5. 99 1305 1! 

: 116 1 38 1 

; 132 ! p : DECLARE_PSECTS (STR); 

3 19 1 3 1! 

; 118 1310 1 ! OWN STORAGE: 

: 119 1311 1°! 

: 120 1 \¢ 4 NONE 

: 121 1313 1! 

s § 1314 1 ! EXTERNAL REFERENCES: 

: 4 1315 1! 

: 124 1 18 1 

s {25 1317 1 exten, ROUT INE 

3; 1 $ 1 8 1 LIBSSTOP, ' signal fatal errors 
3 ’ i ! }} ! STRSCOPY_R_R& : STRSJSB_COPY_R ; ! Routine to do the copy 


EGTEN-ERT ieRS0-1984 (U:th:H2  UMaAh Sete Ta vets 74bo. ek 


i 


tring Len coapletion 
n 
n 


o° pos 
9g 


LITERAL 

“N OSTRCEN t negative str 

“HELSTRPOS negative str on 
LLSTRSPE; ! illegal str +h fication 


TRSLEN_EXTR 
-01 


nN 


“ 


GLOBAL ROUTINE STRSLEN_EXTR ( 
DEST DESC, 
SRC_BESC, 


CHAR_POS 
SuB_CENGTH 


14 
' FUNCTIONAL DESCRIPTION: 


string. 
returned 


length then t 


WANNA AAI AINA AAAI AANA N NI 
RPI EY BS EB BB EEE PWN NIIIInononon) 


i FORMAL PARAMETERS: 
DEST_DESC.wt.dx 
SRC_BESC.rt.dx 
CHAR_POS.rl.r 


4 
1 
1 
t 
i] 
i] 
1 
\ 
1 
1 
1 
i 
1 
1 
! 
' 
! 
! 
| 
t 
' 
1 
! 
SUB_LENGTH.rl.r 
4 
] 
4 
1 
1 
1 
i) 
1 
! 
' 
t 
ft 
1 
t 
1 
! 
i] 
i 
1 
t 
t 


WN SO OODNAVUEWN —OVOONOUES WN —O0O@ 


i IMPLICIT INPUTS: 
i NONE 

i IMPLICIT OUTPUTS: 
i NONE 

i COMPLETION CODES: 


PAAR MMIMNVIVIIVG 
MEW SO ODNAUS WN $$ O OONAUE WN OOO NOULS WI OOONIO 


WW\AWAWNW AAA AAAI WW 


Wr 


0009 09 09 II NII NINN NINO AAAAAPAAAAMMNMNMANA EE PPE PEPER 
SESE SsaToR NI SSSaSS5F s S$ s 


w 


i SIDE EFFECTS: 
May 


a ec me ee em a a ee ee ee ee ee ee ee ad dd ed wd dd dd ed dd 
ce ce ce ee ce ce ce ee ee ce me em cm ee me ee ee ee ee ee me ee a ee me ee ee ee ed ee ed ed od nd ed od 
cc ce cc ce a ce ee me ee ee ee eee ee ee ee ed ed ed ed ed dd od dd dd od 


23 


signal: 
STR$_FATINTERR 
STRS_ILLSTRCLA 


This routine extracts the characters ecere ong at the 
character position in the source string specif 
arameter and continuing for the number of characters specified 
y the input, and copies that substring 
to the destination string (by JSB to STRSCOPY_R_R8) according 
to the syntax of the class o 
If the input character position is <1, 1 7 
the input character position is > the Cength 
of the source string, then the destination strin 
If the substring length is < 1 a null string is 


If character peeczecen + substring Longeh - 1 
e source ote ing Length 
point is implemented by calling the JSB entry point. 


Success é 
Character position reference outside of string 
End pos < start pos, or long 
Negative length supplied, 

Truncation occured 
(Warning) 


12 
1B-Se0-1984 01:44:87 yayett BL in9-32, 


! extract a substring by len 


Pointer to destination gescriptor 
pgrnter to source descriptor 
First character to be included 
Length of the substring 


V4.0-76 2 
ENEXT B82; 1 age 33 


ied by the input 


the destination string. 
s used. 


becomes a null 


> source string 
s used. The CALL entry 


pointer to destination string descriptor 
pointer to source string descriptor 
character position in src to start 
posts te 

length of substring 


length too 
used 
n copying to destination 


Fatal internal error 
Illegal (or unsupported) string class 


CSUR ENTS SS LO OOS 
De a 4 A 3 tS 8 


OOOOOO0O0O0MMO 


o pote te te) 
DNAVL EW OOONOULw 


; Routine cize: 


STRS_INSVIRMEM 


1 
1 
1 
1 
1 

BEGIN 

MAP 

SRC DESC : REF SSTRS$ 

1 
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16-Sep-1 AX-11 Bliss-32 v4.0 

12: -Sep- ats 1 93: 40; 38 LIBRTL.SR Reis STALE NEXT, 5 2;1 
Insufficient virtual memory for 
reallocation of dynamic string 


DESCRIPTOR, 
DEST_DESC : REF S$STRSDESCRIPTOR: 
RETURN STRSLEN_EXTR_RB ( DEST_DESC [0,0,0,0), 
SRC_BESC 7676 "69? 
. «CRAR_POS 
. .SUB_CENGTH); 
END; 'End of STRSLEN_EXTR 
.TITLE STRSLEN_EXTR 
SIDENT \1-072\ 
.EXTRN LIBS$STOP, STRSCOPY_R_RB 
-EXTRN STR$ “NORMAL STR$_REGSTRLEN 
-EXTRN STRS-ILLSTRPOS, STRE. ILLSTRSPE 
.PSECT _STRSCODE,NOWRT, SHR, PIC,2 
01FC 00000 -ENTRY STRSLEN_EXTR, Save R2,R3,R4,R5,R6,R7,RB 
53 10 BC 00 00002 OVL §§ @SUB_LENGTH, R 
52 oc BC 0 00006 MOVL acHAR » R2 
50 04 AC 7D OOOOA MOVO DEST BESC, RO 
0000v 30 B0006 BSBW STRSCEN: EXTR _R8 
04 00011 RET 


18 bytes, Routine Base: _STRSCODE + 0000 


GLOBAL ROUTINE STRSLEN_EXTR_R8 ( 


WI OOOO NXE WY "ODO NONE WI OD 
PRE R ERR ERE R PREP REP EPP 
MN Ss QO OO OCOOCOOO 


POPOTOPOPOPONONUNOPUPONINOPTY 


SEPP LOW 
NOUEWN oO 0OO~N 


POPUPOPORINONINONINOPINOPUNY 


ooo 
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! 


extract a substring by len 


DEST_DESC, ! Pointer to destination descriptor 
SRC_BESC, ! Pointer to source descriptor 
CHAR_POS ' First character to be included 
suB_CENGTH i Length of the substring 


) : STRSJSB_LEN_EXT = 


++ 
FUNCTIONAL DESCRIPTION: 


This routine extracts the characters starting at the 

character position in the source string specified by the input 
arameter and continuing for the number of characters specified 
y the input, and copies that substr ng 

to the destination string (by JSB to STRSSCOPY_R_R8) according 
to the syntax of the class of the destination string. 

If the input character position is <1, 1 is used. If 

the input character position is > the length 

of the source string, then the destination string becomes a null 
a If the substring length is < 1 a null string is 
returned. 

If character pes tsten + substring length - 1 > source string 
length then the source string length is used. 


FORMAL PARAMETERS: 


DEST _DESC.wt.dx pointer to destination string descriptor 
SRC_BESC.rt.dx pointer to source string descriptor 
CHAR_POS.rl.v character position in src to start 
eee es 
SUB_LENGTH.rl.v length of substring 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


! COMPLETION CODES: 


PDEA AAI & 


WO 0OOnNOuf uit 


on 


ce ce ee ce ce ee ee ee ee ee ce ee ce ce ed ed ee ee ee ce ee ee el ce el ce ce ce cee ce cel ce ce cl el ce ce ee cl el el cl ce ee eee el eet cel ceed cel eel el cee 


Fe oe et at el at at at ah tel ee a de ah ae ae ae et tt 


PUPPIES BS BBB EEE EWI II Pnnonofnononond 
MEW O OONAU EWN 9 OD NAUES UN $0 OBNOUES WRN 0 OONOUFSW "OOOO NEW" OO 


ee ce ee ee ce ce ee ce ee ee ce ee ee ee ee ce ee ee ee ee ce cD ce ee ee ee ee ce ce ce ce eel el ce ce ee ce ce ce ce ce ce ee ce ee ce ce ee eed ee ee ee 


POPIPINPIPIPONININININMIPININININY 


oa 
uw 


L Success 
STRS_ILLSTRPOS Character position reference outside of string 
STRS_ILLSTRSPE End pos < start pos, od length too long 
STRS$_NEGSTRLEN Negative Length suppl ed, 0 used 
U IrUncet ian occured in copying to destination 
arning 


SIDE EFFECTS: 
May gional: 
ST ATINTE Fatal internal error 
STRS_ILLSTRCLA it legal (or unsupported) string class 
_INSVIRM Insufficient virtual memory for 
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reallocation of dynamic string 


Length of source string 

addr of ist byte of source string 
CHAR_POS corrected for errors 
SUB_CENGTH corrected for errors 
status returned by copy 

keep the routine status 


COPY STATUS, 
RETURN_STATUS; 


mroropnorornononsrv 


MAP 

SRC_DESC : R 

DEST_DESC : R 
RETURN_STATUS = 1 ; ! Assume success to follow 
+ 
! Extract length and address of 1st byte of source string. Signal fatal 
errors encountered. 
" $STRSGET_LEN_ADDR ( SRC_DESC, IN_LEN, IN_ADDR ) ; 

START_POS = 

N 


IF .IN_LEN LSS .CHAR_POS - 1 
THEN 


BEGIN 
RETURN_STATUS = STRS_ILLSTRPOS; ! input position is illegal 
. IN_LEN ! use srclen and remen er error 


ELS 
. -CHAR_POS = 1 ! use original position 


IF .START_POS LSS 0 THEN 
BEGIN 


~ ~“ SNA AAA AA AAO 


Sse 
S352 
MEW O CDNAS WIN HO OODNOA UE WN 9 OONOUE WN (OOS NAUE WN OOOO 


—O0OonN 


MIPIM ROFoTURPoToTn 
.O000000 


rr 
ooo 


START POS = 0; ! input position is negative 
RETURR_STATUS = STRS_ILLSTRPOS; ! use 0 and remember error 


SELEARAN—SS 


LENGTH om 
IF (.IN_LEN = .START_POS) LSS .SUB_LENGTH 
THEN 


OOOO GOOO0O0 O00 OW W009 0009 CO C9908 INI NNN 


BEGIN 
RETURN_STATUS = STRS_ILLSTRSPE;! input Length is too Large 
glen = .START_POS ! compute length, give error 


ELSE 
. SUB_LENGTH ! use orignal length 


Be Se Se Se Be Ge Se Se Ge Se Be Se Se Ge Gy Se Se Se Ge Ge Se Ss Ge FH Ge SETS Se Se Ge Se Ge SHS Se SHS SESH Se SE SESE See Se Se Se Se SeSeSeSseSeeseese 
3S 
r~ 
ce el ce ce ce ee ce cee ce ce ee ee ee ee ee ce ee ce ee ee ee ee ce ce ce ee ee ce ee cD ce ee cD ae ee ee ee ce ee ce ce ee ce ce ee ee ee ee ed ed 
PPPS IIIT ES SS BS BE EBERLE PEEP PPP PPP PPP PPP PPP PPP EEE 


AHAB EE BH SUNG INI MMIII & HH BE ANIADIPININININPIPOPOPIPIPUPIPOPONPIPUNIPUNPUPININIDY 2 


NOMI — — 2 oS SS 
NM—ODOOVNOuUswN—o 


—— BOO 


on 


WN —"OOONOUEw 
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END; 
IF .LENGTH LSS 0 THEN 
BEGIN 


LENGTH = 0; ! input length is negative 
RETURN, STATUS = STRS_NEGSTRLEN; | use 0, remember error 


opy to descriptor of the destination for length as computed above. 
inter is the sum - 1 of the source pointer and input character 


! position (which must be > 0 and <= source length). 


Ok a a a ad dd dd 
NOUS WN (OO OONAV EUW" OOONOULWw 


COPY_STATUS = 
STRSCOPY_R_RB ( .DEST_DESC, .LENGTH, 
CHSPLUS (.IN_ADDR, .START_POS) ) ; 


IF .COPY_ STATUS NEQ SS$_NORMAL 

THEN RETORN_STATUS = .COPY_STATUS; ! copy truncated, return 
' truncate instead of previous 
! status 

SSTRSSIGNAL_FATAL (RETURN_STATUS); ! signal fatal errors 


RETURN .RETORN_STATUS; 
END; 'End of STRSLEN_EXTR_R8 


.EXTRN STRSANALYZE_SDESC_R1 


55 50 DO 00000 STRSLEN_EXTR_RS:: 
MOVL™ RO, RS 
01 DD PUSHL #1 
02 03 Al 91 CMPB_  3(SRC_DESC), #2 
09 1A BGTRU 1$ 
50 61 3¢ MOVZWL (SRC_DESC), IN_LEN 
54 04 Al 00 MOVL  4(SRC_DESCS, IN_ADDR 
oc 11 BRB 2$ 
50 51 D0 MOVL  SRC_DESC, RO 
000000006 90 1 JSB STRSANALYZE_SDESC_R1 
54 1D MOVL 1, R4 
38 D DECL Re 
52 50 1 CHPL NLLEN, R2 
em ' BGEG $ 
66 000000006 8F D MOVL  #STRS_ILLSTRPOS, RETURN_STATUS 
D MOVL IN_LEN 6 
D TSTL § START_POS 
1 BGEQ )6=s 48 
D4 CLRL = START_POS 
000000006 8F D MOVL.  &#STRSTILLSTRPOS, RETURN_STATUS 
; C SUBL2 START-POS, RO 
0 ; cMPL RO, SOB_LENGTH 
6 000000006 8F D MOVL  #STRS_ILLSTRSPE, RETURN_STATUS 
p ROVE RO, LENGTH 
51 d0 MOVL § SUB_LENGTH, LENGTH 


_o 


AX-11 Bliss-32 V4.0-74 P 9 
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STRSLEN_EXTR 16- 7 AX-11 Bliss-32 V4.0-74 
5.65 14- thi08 LIBRTL.SRC ROIS STALEN EXT.B32;1 
9 18 3 6$: BGEQ 7$ 
1 D4 CLRL LENGTH 
00000000G BF D 9 MOVL TE TRS” "yoy 2 wert RETURN_STATUS 
é 5 8 wit abot? gest ESC, 
000000006 9 1 66 JSB STRSCOPY_R RB 
1 D C CMPL gOPY.. OrATuS. #1 
g 1 F BEQL $ 
6 D 1 MOVL COPY an erat iad | a STATUS 
1 F E ie 8$: BLBS a 
04 6E 0 Fo 77 CMPZV #3 She tush STATUS, #4 
9 1 pore BNEQ 
6E DD 43 PUSHL Mae STATUS 
000000006 98 4 FB 000 CALLS #1 
0 E 00 00087 98: MOVL RETURN. STATUS, RO 
0 008A RSB 
; Routine Size: 139 bytes, Routine Base: _STRSCODE + 0012 
: 348 1538 1 
:; 349 1539 1 END ‘End of module 
; 350 1540 1 
: 51 1541 0 ELUDOM 
4 PSECT SUMMARY 
: Name Bytes Attributes 
: _STRSCODE 157 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC,ALIGN(2) 
3 Library Statistics 
ea) peat rn ARR a osh S| Moka Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 7 0 581 00:00.7 
: COMMAND QUALIFIERS 


Bete Fe Ge Fe Fe Ge Ge Fe Ge Be Ge Ge Ge Ge Ge 


SLISS/CHECK CF IELD, IMETIAL OPTIMIZE) /NOTRACE/LISe1 195: STMLEMEXT/OBJ908 9: STALENENT MSRC$: STRLENEXT/UPDATE=(ENHS: STRLENEXT 


uy 


STRSLEN_EXTR 


3; Size: 157 code + 0 data bytes 
; Run Time: : g-9 

; Elapsed Time: :29. 

3; Lines/CPU Min: 1 

3 Lexemes/CPU-Min: 33461 


aety Used: 91 pages 
Compila 


tion Complete 


1-$2p-1984 01:41:37 
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